B e i t r a g   z u m   B A S I C   1 0 L i n e r s   2 0 1 7   v o n 
 
 
 
 T e l e s p i e l a t o r / I n f e r i o r   S o f t w a r e   I n t e r n a t i o n a l 
 
 
 
 ( t e l e s p i e l a t o r @ g m x . d e ) 
 
 
 
 " A M E R I C A "   ( g e s c h r i e b e n   u n d   g e t e s t e t   i n   B A S I C   4 . 0   a u f   C B M   8 0 9 6 - S K ) 
 
 
 
 P r o g r a m m b e s c h r e i b u n g   u n d   A n l e i t u n g : 
 
 
 
 D e r   v e r r  c k t e   P r  s i d e n t   T r u m p   h a t   s e i n   w a h n s i n n i g e s   V o r h a b e n   b e g o n n e n ,   e i n e   M a u e r   z w i s c h e n 
 
 d e n   U S A   u n d   M e x i k o   z u   e r r i c h t e n .   A l s   m u t i g e r   M e n s c h e n r e c h t s a k t i v i s t   h a s t   D u   d i e   A u f g a b e , 
 
 m i t   S o m b r e r o s   b e k l e i d e t e   m e x i k a n i s c h e   A r b e i t s m i g r a n t e n   ( %)   d u r c h   L  c k e n   i n   d e r   M a u e r   z u 
 
 l o t s e n ,   d i e   d e r   m i t   a u s g e b r e i t e t e n   A r m e n   w i e   i r r e   h i n   u n d   h e r   f l i t z e n d e   T r u m p   ( T )   z u 
 
 r e p a r i e r e n   v e r s u c h t   ( d i e s e r   r u s s i s c h e   B e t o n   i s t   a b e r   a u c h   e i n   m i e s e s   Z e u g ) ! 
 
 D o c h   V o r s i c h t :   W e n n   e i n   M e x i k a n e r   d i e   M a u e r   o d e r   d e n   P r  s i d e n t e n   b e r  h r t ,   w i r d   e r   v o n 
 
 d e s s e n   S c h e r g e n   g e f a s s t   u n d   a b g e s c h o b e n .   G e l i n g t   e s ,   z e h n   M i g r a n t e n   i n   d i e   U S A   z u   b r i n g e n , 
 
 h a s t   D u   g e w o n n e n ,   w e r d e n   z e h n   M i g r a n t e n   a b g e s c h o b e n ,   g e w i n n t   T r u m p .   O b e n   l i n k s   i s t   d e r 
 
 a k t u e l l e   P u n k t e s t a n d   ( Y o u / H e )   z u   s e h e n .   Z u   B e g i n n   j e d e s   V e r s u c h s   t r i t t   e i n   M e x i k a n e r   a u s 
 
 d e m   s c h  t z e n d e n   D i c k i c h t   u n d   r e n n t   i n   D i a g o n a l e n   a u f   d i e   G r e n z e   z u   ( S t e u e r u n g   m i t   d e n 
 
 T a s t e n   1   u n d   3 ) ,   d i e   i n   j e d e r   R u n d e   s c h r  g e r   w e r d e n .   E i n   H e r z   z e i g t   a n ,   w e n n   d e r   G l  c k l i c h e 
 
 d a s   Z i e l   e r r e i c h t   h a t   u n d   d i e   n e u e   R u n d e   b e g i n n t . . .   V i e l   G l  c k ! 
 
 
 
 	 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 
 
 	 _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 
 
 
 
 1 0 - Z e i l e n - V e r s i o n      8 0   Z e i c h e n   ( m i t   A b k  r z u n g e n ) : 
 
 
 
 	 0 d I m ( 1 6 ) : p O 5 9 4 6 7 , 1 6 : p O 5 9 4 6 6 , 1 5 : ? " e&" c h r $ ( 1 4 2 ) : d = 3 2 8 0 0 : f O a = 1 t o 9 : f O b = 1 t o 5 : r E c : i = 2 0 
 
 	 1 p = 3 4 7 2 7 : d = d + 1 : p O d , c : n E b : d = d + 7 5 : n E a : f O m = 1 t o 1 6 : r E m ( m ) : n E m : d A 2 5 4 , 1 2 3 , 3 2 , 3 2 , 3 2 , 2 4 5 
 
 	 2 x = y : y = i n t ( r n d ( 1 ) * 8 0 ) + 3 3 5 6 8 : p O y , i : p O x , 3 2 : p O y + 8 0 , 1 6 0 : z = i n t ( r n d ( 1 ) * 8 0 ) + 3 3 6 4 8 : d A 1 2 3 
 
 	 3 p O z , 3 2 : p O 5 9 4 6 4 , m ( s ) : l = l + 1 : i f l = 7 t H l = 0 : s = s + 1 : i f s = 1 7 t H s = 0 : d A 2 5 2 , 1 2 7 , 3 2 , 2 4 5 , 1 2 4 	 	 	 	 	 	 4 q = p : ? " !y " v " h " t : g E g : i f g = 0 t H g O 2 : d A 1 6 2 , 1 2 6 , 3 2 , 1 2 4 , 1 6 0 , 1 6 0 , 2 5 2 , 2 5 2 , 3 2 , 2 4 5 , 1 6 0 , 1 6 0 
 
 	 5 i f g = 1 t H p = p - 8 0 - v : i f p E ( p ) = 1 6 0 o r p E ( p ) = i t H p = 3 4 7 2 7 : t = t + 1 : i f t > 9 t H ? " e&h e   w i n s ! " : e N 
 
 	 6 i f g = 3 t H p = p - 8 0 + v : i f p E ( p ) = 1 6 0 o r p E ( p ) = i t H p = 3 4 7 2 7 : t = t + 1 : i f t > 9 t H ? " e&h e   w i n s ! " : e N 
 
 	 7 p O p , 8 7 : p O q , 3 2 : i f p < 3 3 5 6 8 t H p O p , 8 3 : f O w = 1 t o 2 0 0 : n E w : p O p , 3 2 : p = 3 4 7 2 7 : v = v + 1 : d A 1 2 6 , 3 2 
 
 	 8 i f v > 9 t H ? " e&y o u   w i n ! " : e n d : d A 2 4 5 , 1 6 0 , 9 7 , 3 2 , 3 2 , 2 4 5 , 1 6 0 , 9 7 , 3 2 , 1 0 8 , 1 6 0 , 1 6 0 , 1 6 0 , 1 2 3 
 
 	 9 g O 2 : d A 1 9 5 , 1 9 5 , 1 9 5 , 1 9 5 , 1 9 5 , 6 9 , 7 5 , 7 4 , 7 0 , 6 9 , 7 5 , 7 4 , 7 6 , 7 4 , 6 9 , 7 5 , 7 4 , 9 4 , 9 3 , 9 9 , 1 1 0 , 9 9 
 
 
 
 L a n g v e r s i o n   m i t   ( a u s g e s c h r i e b e n e n   B e f e h l e n ) : 
 
 
 
 	 0   D I M M ( 1 6 ) 
 
 	 1   P O K E 5 9 4 6 7 , 1 6 
 
 	 2   P O K E 5 9 4 6 6 , 1 5 
 
 	 3   P R I N T " e&" C H R $ ( 1 4 2 ) 
 
 	 4   D = 3 2 8 0 0 
 
 	 5   F O R A = 1 t o 9 
 
 	 6   F O R B = 1 t o 5 
 
 	 7   R E A D C 
 
 	 8   I = 2 0 
 
 	 9   P = 3 4 7 2 7 
 
 	 1 0   D = D + 1 
 
 	 1 1   P O K E D , C 
 
 	 1 2   N E X T B 
 
 	 1 3   D = D + 7 5 
 
 	 1 4   N E X T A 
 
 	 1 5   F O R M = 1 t o 1 6 
 
 	 1 6   R E A D ( M ) 
 
 	 1 7   N E X T M 
 
 	 1 8   D A T A 2 5 4 , 1 2 3 , 3 2 , 3 2 , 3 2 , 2 4 5 
 
 	 1 9   x = y 
 
 	 2 0   Y = I N T ( R N D ( 1 ) * 8 0 ) + 3 3 5 6 8 
 
 	 2 1   P O K E Y , I 
 
 	 2 2   P O K E X , 3 2 
 
 	 2 3   P O K E Y + 8 0 , 1 6 0 
 
 	 2 4   Z = I N T ( R N D ( 1 ) * 8 0 ) + 3 3 6 4 8 
 
 	 2 5   D A T A 1 2 3 
 
 	 2 6   P O K E Z , 3 2 
 
 	 2 7   P O K E 5 9 4 6 4 , M ( S ) 
 
 	 2 8   L = L + 1 
 
 	 2 9   I F L = 7 T H E N l = 0 : S = S + 1 : I F S = 1 7 T H E N S = 0 
 
 	 3 0   D A T A 2 5 2 , 1 2 7 , 3 2 , 2 4 5 , 1 2 4 
 
 	 3 1   Q = P 
 
 	 3 2   P R I N T " !y " v " h " t 
 
 	 3 3   G E T G 
 
 	 3 4   I F G = 0 T H E N   G O T O 1 9 
 
 	 3 5   D A T A 1 6 2 , 1 2 6 , 3 2 , 1 2 4 , 1 6 0 , 1 6 0 , 2 5 2 , 2 5 2 , 3 2 , 2 4 5 , 1 6 0 , 1 6 0 
 
 	 3 6   I F G = 1 T H E N P = P - 8 0 - V : I F P E E K ( P ) = 1 6 0 O R P E E K ( P ) = I   T H E N P = 3 4 7 2 7 : T = T + 1 : I F T > 9 T H E N ? " e&H E   W I N S ! " : E N D 
 
 	 3 7   I F G = 3 T H E N P = P - 8 0 + V : I F P E E K ( P ) = 1 6 0 O R P E E K ( P ) = I   T H E N P = 3 4 7 2 7 : T = T + 1 : I F T > 9 T H E N ? " e&H E   W I N S ! " : E N D 
 
 	 3 8   P O K E P , 8 7 
 
 	 3 9   P O K E Q , 3 2 
 
 	 4 0   I F P < 3 3 5 6 8 T H E N P O K E P , 8 3 : F O R W = 1 t o 2 0 0 : N E X T W : P O K E P , 3 2 : P = 3 4 7 2 7 : V = V + 1 
 
 	 4 1   D A T A 1 2 6 , 3 2 
 
 	 4 2   I F V > 9 T H E N P R I N T " e&y o u   w i n ! " : E N D 
 
 	 4 3   D A T A 2 4 5 , 1 6 0 , 9 7 , 3 2 , 3 2 , 2 4 5 , 1 6 0 , 9 7 , 3 2 , 1 0 8 , 1 6 0 , 1 6 0 , 1 6 0 , 1 2 3 
 
 	 4 4   G O T O 1 9 
 
 	 4 5   D A T A 1 9 5 , 1 9 5 , 1 9 5 , 1 9 5 , 1 9 5 , 6 9 , 7 5 , 7 4 , 7 0 , 6 9 , 7 5 , 7 4 , 7 6 , 7 4 , 6 9 , 7 5 , 7 4 , 9 4 , 9 3 , 9 9 , 1 1 0 , 9 9 
 
 
 
 
 
 E r l  u t e r u n g   d e r   S o n d e r z e i c h e n : 
 
 
 
 e&	 [ S h i f t + C l e a r / H o m e ] 	 ( l  s c h t   d e n   B i l d s c h i r m   u n d   s e t z t   d e n   C u r s o r   i n 
 
 	 	 	 	 d i e   l i n k e   o b e r e   B i l d s c h i r m e c k e ) 
 
 !	 [ C l e a r / H o m e ] 	 	 ( s e t z t   d e n   C u r s o r   i n   d i e   l i n k e   o b e r e   B i l d s c h i r m e c k e ) 
 
 
 
 E m p f o h l e n d e r   E m u l a t o r :   V I C E   ( x p e t . e x e )   m i t   d e r   P E T - M o d e l l - E i n s t e l l u n g   " 8 0 9 6 " 
 
 A n l e i t u n g : 	 E m u l a t o r   s t a r t e n 
 
 	 	 D a t e i   - >   B a n d   I m a g e   e i n l e g e n 
 
 	 	 T e l e s p i e l a t o r . t a p   a n w  h l e n 
 
 	 	 D o p p e l k l i c k   i m   D i r e c t o r y   a u f   " A M E R I C A " 